home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / adynware / s_user.pm < prev    next >
Encoding:
Perl POD Document  |  1999-12-28  |  628 b   |  42 lines
  1. package s_user;
  2. use strict;
  3.  
  4.  
  5. sub DocumentStart
  6. {
  7.         my($self) = @_;
  8.         print "s_user::DocumentStart called\n";
  9.         return "";
  10. }
  11.  
  12. sub DocumentFinish
  13. {
  14.         my($self) = @_;
  15.         print "s_user::DocumentFinish called\n";
  16.         return "";
  17. }
  18.  
  19. sub DocumentChunk
  20. {
  21.         my($self, $chunk) = @_;
  22.         print "s_user::DocumentChunk called\n";
  23.         return $chunk;
  24. }
  25.  
  26. sub Redirect
  27. {
  28.         my($self,$oldURL, $newURL) = @_;
  29. }
  30.  
  31. sub new
  32. {
  33.         my $this = shift;
  34.         my $base = shift;
  35.         my $class = ref($this) || $this;
  36.         my $self = {};
  37.         bless $self, $class;
  38.         return $self;
  39. }
  40.  
  41. 1;
  42.